home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir24 / form610.zip / FORM610.PS
Text File  |  1994-05-22  |  33KB  |  1,037 lines
  1. --
  2.  
  3. The postscript program below will generate Federal Communications
  4. Commission form 610, an application for an Amateur Radio license.
  5.  
  6. This program will even fill the form out for you if you prepend
  7. a dictionary to the front with the appropriate key/value pairs
  8. set. See the README file.
  9.  
  10. ----- fcc610.README -----
  11. If you want to use this code to generate a pre-filled 610 form, you need
  12. to prepend the code with a postscript file containing a dictionary
  13. called FORM. The key-value pairs in FORM are listed below. If a key
  14. is not present in the dictionary, the data it represents will be left
  15. blank. Boolean fields place an "X" in the appropriate box if true.
  16. date-string fields must be strings consisting of 6 numeric digits,
  17. month, day, year. Be sure to zero-pad if a month or day is less than 10.
  18.  
  19. Key        Type        Description        Location
  20.  
  21. /FIRST        string        First name        1
  22. /MIDDLE        string        Middle Initial        1
  23. /LAST        string        Last name         1
  24. /SUFFIX        string        Suffix (Jr, Sr, etc)    1
  25. /BIRTH        date-string    Date of birth        2
  26. /STREET        string        street address        3
  27. /CITY        string        city            3
  28. /STATE        string        state            3
  29. /ZIP        string        ZIP code        3
  30. /4A        boolean        New license        4A
  31. /4B        boolean        Upgrade            4B
  32. /4C        boolean        Name change        4C
  33. /4D        boolean        Address change        4D
  34. /4E        boolean        Callsign change        4E
  35. /4F        boolean        Renew            4F
  36. /OLDFIRST    string        Prior first name    4C
  37. /OLDMIDDLE    string        Prior middle initial    4C
  38. /OLDLAST    string        Prior last name        4C
  39. /OLDSUFFIX    string        Prior suffix        4C
  40. /CALL        string        Callsign        5A
  41. /CLASS        string        Operator class        5B
  42. /6N        boolean        No environmental impact    6
  43. /6Y        boolean        Yes, env. impact    6
  44. /PURPOSE    string        Purpose of prev. appl.    7A
  45. /FILED        date-string    date prev. appl. filed    7B
  46. /SIGNED        date-string    date signed        9
  47. /NOVICE        boolean        qualified for Novice    A
  48. /TECH        boolean        qualified for Tech    A
  49. /TECH-PLUS    boolean        qualified for Tech+    A
  50. /GENERAL    boolean        qualified for General    A
  51. /ADVANCED    boolean        qualified for Adv.    A
  52. /EXTRA        boolean        qualified for Extra    A
  53. /VEC        string        Name of VEC        C
  54. /SESSION-DATE    string        date of session        D
  55. /SESSION-LOC    string        Location of session    E
  56. /VE1-NAME    string        VE #1's name
  57. /VE1-CALL    string        VE #1's call
  58. /VE1-SIGNED    string        VE #1 date signed
  59.  
  60. (last 3 fields repeated for VE2 and VE3)
  61.  
  62. Example (level 2 postscript):
  63.  
  64. %!
  65.  
  66. /FORM <<
  67.  
  68. /FIRST (Bartholemew)
  69. /MIDDLE (J)
  70. /LAST (Simpson)
  71. /STREET (1123 Anystreet)
  72. /CITY (Springfield)
  73. /STATE (IL)
  74. /ZIP (00000)
  75. /BIRTH (122088)
  76. /CALL (N4QRT)
  77. /CLASS (General)
  78. /4D true
  79. /6N true
  80. /SIGNED (050394)
  81.  
  82. >> def
  83.  
  84. Prepending that would print out a 610 form suitable for a change
  85. of address.
  86. ----- ereh tuc -----
  87.  
  88. ----- fcc610.ps -----
  89. %!PS-Adobe-3.0
  90. %%BoundingBox: 26 29 588 772
  91. %%LanguageLevel: 2
  92. %%PageOrder: Ascend
  93. %%Requirements: duplex
  94. %%Title: FCC_form_610
  95. %%Creator: Nick_Sayer
  96. %%Pages: 2
  97. %%DocumentNeededResources: font Helvetica Helvetica-Bold ZapfDingbats Courier
  98. %%EndComments
  99. %%BeginProlog
  100. %%EndProlog
  101. %%BeginSetup
  102. %
  103. % FCC610.PS
  104. % Federal Communications Commission form 610
  105. % Version number kept below
  106. % Written by Nick Sayer, N6QQQ
  107. % I don't think I can claim copyright on this since it is a federal
  108. % form.
  109. %
  110. % THIS VERSION HAS NOT BEEN SUBMITTED TO THE FCC FOR APPROVAL, NOR HAS
  111. % IT BEEN ACTUALLY USED IN APPLICATIONS TO THE COMMISSION. IF YOU USE
  112. % THIS FORM AND THE FCC KICKS IT BACK, IT'S NOT MY FAULT. I would like
  113. % any feedback with regards to acceptability of forms generated by
  114. % this code.
  115. %
  116. % One hint: The paper color is critical. I have submitted 610 forms
  117. % photocopied onto 'Goldenrod' paper and have had them accepted,
  118. % but white won't work. The FCC uses paper color to sort the forms
  119. % from various services out more easily or something.
  120. %
  121. % The source for this form is the 11/93 version of the form.
  122. % The original indicia (here deleted per FCC policy) said
  123. % 3060-0033, expires 08/31/95.
  124. %
  125. % The form was carefully measured with a ruler to the nearest millimeter.
  126. %
  127. % Here are the differences you may note in the form:
  128. %
  129. % 1. OMB notation at upper left omitted.
  130. %    This in keeping with FCC policy for privately generated forms.
  131. %
  132. % 2. Possible measurement errors.
  133. %    I only measured to the nearest 1 mm. Some lines had to be moved
  134. %    very slightly to make room for the font I used (especially in
  135. %    section 2A).
  136. %
  137. % 3. There is a version number in the top right corner of the back.
  138. %    Delete it if you like. I'd go nuts without it given how many
  139. %    times I've printed these out.
  140. %
  141. % 4. Helvetica is the closest font I could find to the one the FCC
  142. %    used. It's not an exact match. Their font is certainly a
  143. %    sans-serif font but it's thinner. I think it's close enough.
  144. %
  145. % Any other differences are probably bugs.
  146. %
  147. % This version has been tested under Ghostscript, NeWSprint 2.0 and
  148. % OpenWindows 3.3 DPS (pageview). The date-line procedure produces
  149. % eroneous results under NeWSprint, but I think it's a NeWS bug.
  150. % Apart from that, it works fine on all the platforms I've tried.
  151. %
  152. % This version allows you to prepend a dictionary to this file. The
  153. % dictionary will be used to fill out the front (only) of the form.
  154. % See the accompanying README file for a list of dictionary entries.
  155. % The fields will be filled out in Courier 12 pitch font so that it
  156. % looks just like a typewriter.
  157. %
  158. % VEs may wish to print a large number of forms back-only in advance of
  159. % a test session, then load all of the resulting pages in a laser
  160. % printer at the test session. Then for each examinee they can run a
  161. % program that will pre-pend the dictionary as appropriate and 
  162. % run the first page only. The result would be a fully-filled
  163. % 610 form ready for 4 signatures. If you do this, you'll want to
  164. % use one of the many EPS page splitter programs to make front-only
  165. % and back-only renditions.
  166.  
  167. /VERSION (V3.01) def
  168.  
  169. /inch { 72 mul } def
  170. /cm { 2.54 div inch } def
  171. /mm { 25.4 div inch } def
  172.  
  173. %%IncludeResource: font Courier
  174. /FILLIN-FONT (Courier) findfont def
  175. %%IncludeResource: font Helvetica
  176. /NORMAL-FONT (Helvetica) findfont def
  177. %%IncludeResource: font Helvetica-Bold
  178. /BOLD-FONT (Helvetica-Bold) findfont def
  179. %%IncludeResource: font ZapfDingbats
  180. /DING-FONT (ZapfDingbats) findfont def
  181.  
  182. /center-text % string --
  183. {
  184.   dup stringwidth pop 2 div currentpoint pop exch sub currentpoint
  185.   exch pop moveto show
  186. } def
  187.  
  188. /right-justify % --
  189. {
  190.   dup stringwidth pop currentpoint pop exch sub currentpoint
  191.   exch pop moveto show
  192. } def
  193.  
  194. % we want a justify-text % x1 x2 y string --
  195. % It's going to have to take the difference between x2-x1 and
  196. % {string stringwidth}, divide that by {string length}, and
  197. % use the result as the x argument to ashow.
  198.  
  199. /justify-text % x1 x2 y string --
  200. {
  201.   3 index 2 index moveto
  202.   3 index 3 index exch sub
  203.   1 index stringwidth pop sub
  204.   1 index length div 0 2 index ashow
  205.   pop pop pop pop
  206. } def
  207.  
  208. % Well, this is supposed to be the level 2 way to print on both
  209. % sides, but ghostscript heaves up when I try it. This bit of code
  210. % may also make Level 1 parsers lose their minds, so comment it out
  211. % if it gives you trouble.
  212. %
  213. systemdict /setpagedevice known { << /Duplex true >> setpagedevice } if
  214.  
  215. % And for those who only have level 1, we can work around glyphshow.
  216. % It is, however, the prefered method of doing this sort of thing.
  217. %
  218. systemdict /glyphshow known
  219.  { /DING-SIGN { /a22 glyphshow } def /DING-ARROW { /a186 glyphshow } def }
  220.  { /DING-SIGN { <36> show } def /DING-ARROW { <F8> show } def }
  221. ifelse
  222.  
  223. %%EndSetup
  224. %%Page: "front" 1
  225. % Everything is relative to the bottom-left corner of the main box.
  226. % So to make it fit on the page, we have to shove it around a bit.
  227.  
  228. .9 cm 1.6 cm translate
  229.  
  230. % There are two very thick boxes near the top and middle
  231.  
  232. /headerbox % x y --
  233. {
  234. moveto
  235.  
  236. gsave
  237.  
  238. 2 setlinewidth
  239.  
  240. % This is kind of a bitch. Because PostScript centers the setlinewidth
  241. % on the center of the line, we need to tweak the heavily drawn boxes
  242. % by both their width and the width of the lines they're butting up
  243. % to. That means moving in 1.75 points, not 2.
  244.  
  245. .75 0 rmoveto
  246. 198 mm 1.5 sub 0 rlineto 0 6 mm rlineto -198 mm 1.5 add 0 rlineto closepath
  247. stroke
  248.  
  249. grestore gsave % to rescue the currentpoint.
  250.  
  251. % Now the little vertical lines
  252.  
  253. 1 setlinewidth
  254.  
  255. 35 mm 0 rmoveto 0 6 mm rlineto 198 35 2 mul sub mm 0 rmoveto 0 -6 mm
  256. rlineto stroke
  257.  
  258. grestore gsave % again...
  259.  
  260. % Things just get a bunch worse here.
  261.  
  262. .95 setgray 1.25 1 rmoveto 35 mm 1.75 sub 0 rlineto 0 6 mm 2 sub rlineto
  263. -35 mm 1.75 add 0 rlineto closepath fill
  264.  
  265. grestore gsave % one more time.
  266.  
  267. .95 setgray 198 mm 1.25 sub 1 rmoveto -35 mm 1.75 add 0 rlineto 0 6 mm 2 sub
  268. rlineto 35 mm 1.75 sub 0 rlineto closepath fill
  269.  
  270. grestore
  271.  
  272. } def
  273.  
  274. 0 232 mm headerbox
  275. 0 101 mm headerbox
  276.  
  277. % The rest of the lines are a half point wide
  278.  
  279. .5 setlinewidth
  280.  
  281. % The main box
  282.  
  283. newpath 0 232 mm moveto 0 0 lineto 198 mm 0 lineto 198 mm 232 mm lineto
  284. stroke
  285.  
  286. % Now all the full-length horizontal lines
  287.  
  288. /full-line % y --
  289. {
  290. dup 0 exch moveto 198 mm exch lineto stroke
  291. } def
  292.  
  293. 11 mm full-line
  294. 24 mm full-line
  295. 37 mm full-line
  296. 45 mm full-line
  297. 120 mm full-line
  298. 131 mm full-line
  299. 138 mm full-line
  300. 150 mm full-line
  301. 157 mm full-line
  302. 168 mm full-line
  303. 210 mm full-line
  304. 220 mm full-line
  305.  
  306. % Now all the vertical lines dividing those stripes
  307.  
  308. 66 mm 0 moveto 66 mm 37 mm lineto
  309. 99 mm 0 moveto 99 mm 37 mm lineto
  310. 169 mm 0 moveto 169 mm 37 mm lineto
  311. stroke
  312.  
  313. 119 mm 45 mm moveto 119 mm 101 mm lineto stroke
  314.  
  315. 155 mm 107 mm moveto 155 mm 120 mm lineto stroke
  316. 155 mm 138 mm moveto 155 mm 150 mm lineto stroke
  317. 67 mm 138 mm moveto 67 mm 150 mm lineto stroke
  318.  
  319. 88 mm 157 mm moveto 88 mm 168 mm lineto stroke
  320. 139 mm 157 mm moveto 139 mm 168 mm lineto stroke
  321.  
  322. 84 mm 210 mm moveto 84 mm 232 mm lineto stroke
  323. 137 mm 210 mm moveto 137 mm 232 mm lineto stroke
  324. 158 mm 210 mm moveto 158 mm 232 mm lineto stroke
  325.  
  326. % Now all the horizontal lines dividing up the resulting cubes
  327.  
  328. 0 mm 68 mm moveto 119 mm 68 mm lineto stroke
  329. 0 mm 56 mm moveto 119 mm 56 mm lineto stroke
  330.  
  331. % Now once again we divide up the resulting slices
  332.  
  333. 62 mm 45 mm moveto 62 mm 56 mm lineto stroke
  334.  
  335. % Now we start scribbling. TOP SECTION
  336.  
  337. NORMAL-FONT 8 scalefont setfont
  338. 0 253 mm moveto (FEDERAL COMMUNICATIONS COMMISSION) show
  339. 0 250 mm moveto (GETTYSBURG, PENNSYLANIA) show
  340. 182 mm 246 mm moveto (See instructions for) center-text
  341. 182 mm 243 mm moveto (information regarding) center-text
  342. 182 mm 240 mm moveto (public burden estimate.) center-text
  343.  
  344. BOLD-FONT 14 scalefont setfont
  345. 99 mm 246 mm moveto (APPLICATION FORM 610 FOR) center-text
  346. 99 mm 240 mm moveto (AMATEUR OPERATOR/PRIMARY STATION LICENSE) center-text
  347.  
  348. BOLD-FONT 10 scalefont setfont
  349. 99 mm 234 mm moveto
  350.  (SECTION 1 - TO BE COMPLETED BY APPLICANT \(See instructions\))
  351. center-text
  352. 99 mm 103 mm moveto
  353.  (SECTION 2 - TO BE COMPLETED BY ALL ADMINISTERING VE's)
  354. center-text
  355.  
  356. BOLD-FONT 8 scalefont setfont
  357. 99 mm 38 mm moveto
  358. (WITH THE INSTRUCTIONS PROVIDED BY THE COORDINATING VEC AND THE FCC)
  359. center-text
  360. 99 mm 42 mm moveto
  361. (I CERTIFY THAT I HAVE COMPLIED WITH THE ADMINISTERING VE REQUIREMENTS IN PART 97 OF THE COMMISSION'S RULES AND)
  362. center-text
  363.  
  364. /box % --
  365. { currentpoint newpath moveto .3 cm 0 cm rlineto 0 cm .3 cm rlineto
  366.   -.3 cm 0 cm rlineto closepath stroke }
  367. def
  368.  
  369. NORMAL-FONT 8 scalefont setfont
  370.  
  371. 1 mm 229 mm moveto (1. Print or type last name) show
  372. 65 mm 229 mm moveto (Suffix) show
  373. 85 mm 229 mm moveto (First name) show
  374. 138 mm 229 mm moveto (Middle initial) show
  375. 159 mm 229 mm moveto (2. Date of birth) show
  376. 1 mm 217 mm moveto (3. Mailing address \(Number and street\)) show
  377. 85 mm 217 mm moveto (City) show
  378. 138 mm 217 mm moveto (State code) show
  379. 159 mm 217 mm moveto (ZIP code) show
  380.  
  381. /date-line
  382. {
  383. gsave
  384. 0 mm 6 rmoveto
  385. [ 5 mm 1 mm 5 mm 2 mm ] 0 setdash
  386. 39 mm 0 rlineto stroke
  387. grestore gsave
  388. [ 0 11 mm 2 mm 11 mm 2 mm 11 mm ] 1 setdash
  389. 0 mm 12 rmoveto
  390. 35 mm 0 rlineto stroke
  391. grestore gsave
  392. NORMAL-FONT 8 scalefont setfont
  393. (month) show
  394. grestore gsave
  395. 15 mm 0 rmoveto
  396. NORMAL-FONT 8 scalefont setfont
  397. (day) show
  398. grestore gsave
  399. 26 mm 0 rmoveto
  400. NORMAL-FONT 8 scalefont setfont
  401. (year) show
  402. grestore
  403. } def
  404.  
  405. 160 mm 221 mm moveto date-line
  406.  
  407. 1 mm 207 mm moveto (4. I HEREBY APPLY FOR \(make an X in the ) show
  408. (appropriate box\(es\)\):) show
  409.  
  410. 7 mm 199 mm moveto (4A. ) show 13 mm 199 mm moveto box
  411. BOLD-FONT 10 scalefont setfont
  412. 18 mm 199 mm moveto (EXAMINATION ) show
  413. NORMAL-FONT 8 scalefont setfont
  414. ( for a new license) show
  415.  
  416. 7 mm 190 mm moveto (4B. ) show 13 mm 190 mm moveto box
  417. BOLD-FONT 10 scalefont setfont
  418. 18 mm 190 mm moveto (EXAMINATION ) show
  419. NORMAL-FONT 8 scalefont setfont
  420. ( for upgrade of my operator license) show
  421. 18 mm 187 mm moveto (class) show
  422.  
  423. 7 mm 180 mm moveto (4C. ) show 13 mm 180 mm moveto box
  424. BOLD-FONT 10 scalefont setfont
  425. 18 mm 180 mm moveto (CHANGE ) show
  426. NORMAL-FONT 8 scalefont setfont
  427. ( my name on my license to my new) show
  428. 18 mm 177 mm moveto (name in item 1. My former name was:) show
  429.  
  430. 18 mm 172 mm moveto 94 mm 172 mm lineto stroke
  431. 18 mm 169 mm moveto (\(Last name\)) show
  432. 41 mm 169 mm moveto (\(Suffix\)) show
  433. 57 mm 169 mm moveto (\(First name\)) show
  434. 86 mm 169 mm moveto (\(MI\)) show
  435.  
  436. 110 mm 199 mm moveto (4D. ) show 116 mm 199 mm moveto box
  437. BOLD-FONT 10 scalefont setfont
  438. 121 mm 199 mm moveto (CHANGE ) show
  439. NORMAL-FONT 8 scalefont setfont
  440. ( my mailing address on my license to) show
  441. 121 mm 196 mm moveto (my new address in item 3.) show
  442.  
  443. 110 mm 190 mm moveto (4E. ) show 116 mm 190 mm moveto box
  444. BOLD-FONT 10 scalefont setfont
  445. 121 mm 190 mm moveto (CHANGE ) show
  446. NORMAL-FONT 8 scalefont setfont
  447. ( my station call sign systematically) show
  448. 121 mm 187 mm moveto (\(See instructions\)) show
  449. 121 mm 184 mm moveto (Applicant's initials: ) show
  450. 20 mm 0 rlineto stroke
  451.  
  452. 110 mm 173 mm moveto (4F. ) show 116 mm 173 mm moveto box
  453. BOLD-FONT 10 scalefont setfont
  454. 121 mm 173 mm moveto (RENEWAL ) show
  455. NORMAL-FONT 8 scalefont setfont
  456. ( of my license) show
  457.  
  458. 1 mm 165 mm moveto (5.) show
  459. 5 mm 83 mm 165 mm
  460. (Unless you are requesting a new license, attach the) justify-text
  461. 5 mm 83 mm 162 mm
  462. (original or a photocopy of your license to the back of this) justify-text
  463. 5 mm 159 mm moveto
  464. (Form 610 and complete items 5A and 5B.) show
  465. 90 mm 165 mm moveto (5A. Call sign shown on license) show
  466. 141 mm 165 mm moveto (5B. Operator class shown on license) show
  467.  
  468. 1 mm 154 mm moveto (6.) show
  469. 5 mm 154 mm moveto (Would an FCC grant of your request be an ) show
  470. (action that may) show
  471. 5 mm 151 mm moveto (have a significant environmental effect?) show
  472. BOLD-FONT 10 scalefont setfont
  473. 110 mm 151 mm moveto box
  474. 115 mm 151 mm moveto (NO) show
  475. 134 mm 151 mm moveto box
  476. 139 mm 151 mm moveto (YES ) show
  477. NORMAL-FONT 8 scalefont setfont
  478. 0 1 mm rmoveto
  479. ( \(Attach required statement\)) show
  480.  
  481. 1 mm 147 mm moveto (7.) show
  482. 5 mm 65 mm 147 mm (If you have filed another Form 610 that we) justify-text
  483. 5 mm 65 mm 144 mm (have not acted upon, complete items 7A) justify-text
  484. 5 mm 141 mm moveto (and 7B.) show
  485. 68 mm 147 mm moveto (7A. Purpose of other form) show
  486. 157 mm 147 mm moveto (7B. Date filed) show
  487. 160 mm 139 mm moveto date-line
  488.  
  489. NORMAL-FONT 6.5 scalefont setfont
  490. 99 mm 135 mm moveto
  491. (WILLFUL FALSE STATEMENTS MADE ON THIS FORM ARE PUNISHABLE BY FINE AND/OR IMPRISONMENT, \(U.S. CODE, TITLE 18, SECTION 1001\), AND/OR REVOCATION OF)
  492. center-text
  493. 99 mm 132 mm moveto
  494. (ANY STATION LICENSE OR CONSTRUCTION PERMIT \(U.S. CODE, TITLE 47, SECTION 312\(A\)\(1\)\) AND/OR FORFEITURE \(U.S. CODE, TITLE 47, SECTION 503\).)
  495. center-text
  496.  
  497. 2 mm 196 mm 128 mm
  498. (I CERTIFY THAT ALL STATEMENTS AND ATTACHMENTS ARE TRUE, COMPLETE, AND CORRECT TO THE BEST OF MY KNOWLEDGE AND BELIEF AND ARE MADE IN GOOD)
  499. justify-text
  500. 2 mm 196 mm 125 mm
  501. (FAITH; THAT I AM NOT A REPRESENTATIVE OF A FOREIGN GOVERNMENT; THAT I WAIVE ANY CLAIM TO THE USE OF A PARTICULAR FREQUENCY REGARDLESS OF)
  502. justify-text
  503. 2 mm 122 mm moveto
  504. (PRIOR USE BY LICENSE OR OTHERWISE; AND THAT THE STATION TO BE ) show
  505. (LICENSED WILL BE INACCESSIBLE TO UNAUTHORIZED PERSONS.) show
  506.  
  507. NORMAL-FONT 8 scalefont setfont
  508. 1 mm 117 mm moveto (8.) show
  509. 5 mm 117 mm moveto
  510. (Signature of applicant \(Do not print, type or stamp.) show
  511. (\)    \(Must match name in item 1.\)) show
  512. 157 mm 117 mm moveto (9. Date signed) show
  513. 160 mm 108 mm moveto date-line
  514. BOLD-FONT 14 scalefont setfont
  515. DING-FONT 14 scalefont setfont
  516. 6 mm 110 mm moveto DING-SIGN
  517. 10 mm 110 mm moveto 152 mm 110 mm lineto stroke
  518.  
  519. % BOTOM SECTION
  520.  
  521. NORMAL-FONT 8 scalefont setfont
  522.  
  523. 1 mm 97 mm moveto (A.) show
  524. 5 mm 97 mm moveto (Applicant is qualified for operator license class:)
  525. show
  526. 120 mm 97 mm moveto (B. VEC receipt date:) show
  527.  
  528. 1 mm 64 mm moveto (C.) show
  529. 5 mm 64 mm moveto (Name of Volunteer-Examiner Coordinator \(VEC\):) show
  530. 1 mm 53 mm moveto (D.) show
  531. 5 mm 53 mm moveto (Date of VEC coordinated examination) show
  532. 5 mm 50 mm moveto (session:) show
  533. 63 mm 53 mm moveto (E. Examination session location:) show
  534.  
  535. /ve-line % y --
  536. {
  537. dup 67 mm exch moveto (VE's station call sign) show
  538. dup 100 mm exch moveto (VE's signature \(must match name\)) show
  539. 170 mm exch moveto (Date signed) show
  540. } def
  541.  
  542. 1 mm 34 mm moveto (1st VE's name  \(Print First, MI, Last, Suffix\)) show
  543. 34 mm ve-line
  544. 1 mm 21 mm moveto (2nd VE's name  \(Print First, MI, Last, Suffix\)) show
  545. 21 mm ve-line
  546. 1 mm 8 mm moveto (3rd VE's name  \(Print First, MI, Last, Suffix\)) show
  547. 8 mm ve-line
  548.  
  549. BOLD-FONT 9 scalefont setfont
  550. 4 mm 92 mm moveto box
  551. 11 mm 92 mm moveto (NOVICE) show
  552. 50 mm 92 mm moveto (\(Elements 1\(A\), 1\(B\), or 1\(C\) and 2\)) show
  553. 4 mm 88 mm moveto box
  554. 11 mm 88 mm moveto (TECHNICIAN) show
  555. 50 mm 88 mm moveto (\(Elements 2 and 3\(A\)\)) show
  556. 4 mm 84 mm moveto box
  557. 11 mm 84 mm moveto (TECHNICIAN PLUS) show
  558. 50 mm 84 mm moveto (\(Elements 1\(A\), 1\(B\), or 1\(C\), 2 and 3\(A\)\)) show
  559. 4 mm 80 mm moveto box
  560. 11 mm 80 mm moveto (GENERAL) show
  561. 50 mm 80 mm moveto (\(Elements 1\(B\) or 1\(C\), 2, 3\(A\), and 3\(B\)\)) show
  562. 4 mm 76 mm moveto box
  563. 11 mm 76 mm moveto (ADVANCED) show
  564. 50 mm 76 mm moveto (\(Elements 1\(B\) or 1\(C\), 2, 3\(A\), 3\(B\),) show
  565. ( and 4\(A\)\)) show
  566. 4 mm 72 mm moveto box
  567. 11 mm 72 mm moveto (AMATEUR EXTRA) show
  568. 50 mm 72 mm moveto (\(Elements 1\(C\), 2, 3\(A\), 3\(B\), 4\(A\)) show
  569. ( and 4\(B\)\)) show
  570.  
  571. % Finally, right justify this bit at the bottom
  572.  
  573. NORMAL-FONT 8 scalefont setfont
  574.  
  575. 198 mm -3 mm moveto (FCC Form 610) right-justify
  576. 198 mm -6 mm moveto (November 1993) right-justify
  577.  
  578. % This is optional. Uncomment it if you wish
  579.  
  580. % 0 -3 mm moveto
  581. % (No U.S. Government funds were used to print this document.) show
  582.  
  583. % WHEW! Half way home!
  584.  
  585. % At this point it's possible that a user has pre-pended a dictionary
  586. % which we can use to actually fill out the form in Courier.
  587.  
  588. currentdict /FORM known
  589.  
  590. {
  591.   /false-or-val
  592.   {
  593.     dup FORM exch known
  594.     { FORM exch get }
  595.     { pop false } ifelse
  596.   } def
  597.  
  598.   /blank-or-val
  599.   {
  600.     dup FORM exch known
  601.     { FORM exch get }
  602.     { pop () } ifelse
  603.   } def
  604.  
  605.   /fillin-date-line % y string --
  606.   {
  607.     exch 160 mm exch moveto
  608.     12 exch 0 exch ashow
  609.   } def
  610.  
  611.   FILLIN-FONT 12 scalefont setfont
  612.  
  613.   2 mm 224 mm moveto /LAST blank-or-val show
  614.   65 mm 224 mm moveto /SUFFIX blank-or-val show
  615.   85 mm 224 mm moveto /FIRST blank-or-val show
  616.   145 mm 224 mm moveto /MIDDLE blank-or-val show
  617.  
  618.   224 mm /BIRTH blank-or-val fillin-date-line
  619.  
  620.   2 mm 212 mm moveto /STREET blank-or-val show
  621.   85 mm 212 mm moveto /CITY blank-or-val show
  622.   145 mm 212 mm moveto /STATE blank-or-val show
  623.   162 mm 212 mm moveto /ZIP blank-or-val show
  624.  
  625.   /4A false-or-val { 13 mm 199 mm moveto (X) show } if
  626.   /4B false-or-val { 13 mm 190 mm moveto (X) show } if
  627.   /4C false-or-val { 13 mm 180 mm moveto (X) show } if
  628.   /4D false-or-val { 116 mm 199 mm moveto (X) show } if
  629.   /4E false-or-val { 116 mm 190 mm moveto (X) show } if
  630.   /4F false-or-val { 116 mm 173 mm moveto (X) show } if
  631.  
  632.   18 mm 173 mm moveto /OLDLAST blank-or-val show
  633.   41 mm 173 mm moveto /OLDSUFFIX blank-or-val show
  634.   57 mm 173 mm moveto /OLDFIRST blank-or-val show
  635.   87 mm 173 mm moveto /OLDMIDDLE blank-or-val show
  636.  
  637.   93 mm 160 mm moveto /CALL blank-or-val show
  638.   145 mm 160 mm moveto /CLASS blank-or-val show
  639.  
  640.   /6N false-or-val { 110 mm 151 mm moveto (X) show } if
  641.   /6Y false-or-val { 134 mm 151 mm moveto (X) show } if
  642.  
  643.   70 mm 142 mm moveto /PURPOSE blank-or-val show
  644.   142 mm /FILED blank-or-val fillin-date-line
  645.  
  646.   111 mm /SIGNED blank-or-val fillin-date-line
  647.  
  648.   /NOVICE false-or-val { 4 mm 92 mm moveto (X) show } if
  649.   /TECH false-or-val { 4 mm 88 mm moveto (X) show } if
  650.   /TECH-PLUS false-or-val { 4 mm 84 mm moveto (X) show } if
  651.   /GENERAL false-or-val { 4 mm 80 mm moveto (X) show } if
  652.   /ADVANCED false-or-val { 4 mm 76 mm moveto (X) show } if
  653.   /EXTRA false-or-val { 4 mm 72 mm moveto (X) show } if
  654.  
  655.   4 mm 59 mm moveto /VEC blank-or-val show
  656.   4 mm 46 mm moveto /SESSION-DATE blank-or-val show
  657.   65 mm 46 mm moveto /SESSION-LOC blank-or-val show
  658.  
  659.   2 mm 26 mm moveto /VE1-NAME blank-or-val show
  660.   70 mm 26 mm moveto /VE1-CALL blank-or-val show
  661.   170 mm 26 mm moveto /VE1-SIGNED blank-or-val show
  662.  
  663.   2 mm 13 mm moveto /VE2-NAME blank-or-val show
  664.   70 mm 13 mm moveto /VE2-CALL blank-or-val show
  665.   170 mm 13 mm moveto /VE2-SIGNED blank-or-val show
  666.  
  667.   2 mm 1 mm moveto /VE3-NAME blank-or-val show
  668.   70 mm 1 mm moveto /VE3-CALL blank-or-val show
  669.   170 mm 1 mm moveto /VE3-SIGNED blank-or-val show
  670.  
  671. } if
  672.  
  673. showpage
  674.  
  675. %%Page: "back" 2
  676. % On the back, everything is relative to the bleed-through of the
  677. % main box on the front (I can just make it out under strong light).
  678. % So to make it fit on the page, we have to shove it around a bit.
  679.  
  680. .9 cm 1.6 cm translate
  681.  
  682. % There's another headerbox on the back, but the interior dimensions
  683. % are a little different, so we'll just copy the procedure and
  684. % change it a little.
  685.  
  686. /headerbox % x y --
  687. {
  688. moveto
  689.  
  690. gsave
  691.  
  692. 2 setlinewidth
  693.  
  694. % This is kind of a bitch. Because PostScript centers the setlinewidth
  695. % on the center of the line, we need to tweak the heavily drawn boxes
  696. % by both their width and the width of the lines they're butting up
  697. % to. That means moving in 1.75 points, not 2.
  698.  
  699. .75 0 rmoveto
  700. 198 mm 1.5 sub 0 rlineto 0 6 mm rlineto -198 mm 1.5 add 0 rlineto closepath
  701. stroke
  702.  
  703. grestore gsave % to rescue the currentpoint.
  704.  
  705. % Now the little vertical lines
  706.  
  707. 1 setlinewidth
  708.  
  709. 46 mm 0 rmoveto 0 6 mm rlineto 198 46 2 mul sub mm 0 rmoveto 0 -6 mm
  710. rlineto stroke
  711.  
  712. grestore gsave % again...
  713.  
  714. % Things just get a bunch worse here.
  715.  
  716. .95 setgray 1.25 1 rmoveto 46 mm 1.75 sub 0 rlineto 0 6 mm 2 sub rlineto
  717. -46 mm 1.75 add 0 rlineto closepath fill
  718.  
  719. grestore gsave % one more time.
  720.  
  721. .95 setgray 198 mm 1.25 sub 1 rmoveto -46 mm 1.75 add 0 rlineto 0 6 mm 2 sub
  722. rlineto 46 mm 1.75 sub 0 rlineto closepath fill
  723.  
  724. grestore
  725.  
  726. } def
  727.  
  728. 0 213 mm headerbox
  729.  
  730. % The rest of the lines are a half point wide
  731.  
  732. .5 setlinewidth
  733.  
  734. % The main box for the back
  735.  
  736. 0 120 mm moveto 0 254 mm lineto 198 mm 254 mm lineto
  737. 198 mm 120 mm lineto closepath stroke
  738.  
  739. % This may cause problems with the commission. If you don't want it,
  740. % comment it out.
  741. NORMAL-FONT 4 scalefont setfont
  742. 198 mm 254.5 mm moveto VERSION right-justify
  743.  
  744. NORMAL-FONT 10 scalefont setfont
  745.  
  746. 2 mm 250 mm moveto
  747. (ATTACH ORIGINAL OR A PHOTOCOPY OF YOUR LICENSE HERE:) show
  748.  
  749. BOLD-FONT 10 scalefont setfont
  750.  
  751. 99 mm 215 mm moveto
  752. (SECTION 3 - TO BE COMPLETED BY PHYSICIAN) center-text
  753.  
  754. 27 mm 207 mm moveto (PHYSICIAN'S CERTIFICATION) center-text
  755. 27 mm 203 mm moveto (OF DISABILITY) center-text
  756. 27 mm 197 mm moveto (Please see notice below) center-text
  757.  
  758. BOLD-FONT 8 scalefont setfont
  759.  
  760. 2 mm 155 mm moveto
  761. (WILLFUL FALSE STATEMENT IS PUNISHABLE BY FINE AND IMPRISONMENT ) show
  762. (\(U.S. CODE TITLE 18, SECTION 1001\)) show
  763.  
  764. 2 mm 140 mm moveto
  765. (PATIENT'S RELEASE) show
  766.  
  767. NORMAL-FONT 8 scalefont setfont
  768.  
  769. /line-to-end {
  770. currentpoint newpath moveto currentpoint exch pop 196 mm exch lineto stroke
  771. } def
  772.  
  773. 64 mm 204 mm moveto (Print, Type or stamp physician's name:  ) show
  774. line-to-end
  775. 64 mm 196 mm moveto (Street address:  ) show line-to-end
  776. 64 mm 188 mm moveto (City, State, ZIP code:  ) show line-to-end
  777. 64 mm 180 mm moveto (Office telephone number:  ) show
  778. gsave
  779. (   \(             \)) show
  780. grestore line-to-end
  781.  
  782. gsave
  783. DING-FONT 14 scalefont setfont
  784. 55 mm 147 mm moveto DING-ARROW
  785. 2 mm -1 mm rmoveto
  786. [ 82 mm 4 mm 17 mm 6 mm 25 mm 9 mm ] 0 setdash
  787. line-to-end
  788. grestore
  789.  
  790. NORMAL-FONT 6 scalefont setfont
  791. 62 mm 142 mm moveto (PHYSICIAN'S SIGNATURE \(DO NOT PRINT, ) show
  792. (TYPE, OR STAMP\)) show
  793. 150 mm 142 mm moveto (M.D. or D.O.) show
  794. 176 mm 142 mm moveto (DATE SIGNED) show
  795.  
  796. gsave
  797. DING-FONT 14 scalefont setfont
  798. 55 mm 126 mm moveto DING-ARROW
  799. 2 mm -1 mm rmoveto
  800. [ 82 mm 4 mm 48 mm 9 mm ] 0 setdash
  801. line-to-end
  802. grestore
  803.  
  804. 62 mm 121 mm moveto (APPLICANT'S SIGNATURE \(DO NOT PRINT, ) show
  805. (TYPE, OR STAMP\)) show
  806. 160 mm 121 mm moveto (DATE SIGNED) show
  807.  
  808. NORMAL-FONT 8 scalefont setfont
  809. 2 mm 196 mm 174 mm
  810. (I CERTIFY THAT I have read the Notice to Physician Certifying to a Disability, and that the person named in item 1 on the reverse is severely)
  811. justify-text
  812. 2 mm 196 mm 171 mm
  813. (handicapped, the duration of which will extend for more than 365 days beyond this date. Because of the severe handicap, this person is)
  814. justify-text
  815. 2 mm 196 mm 168 mm
  816. (unable to pass a 13 or 20 words per minute telegraphy examination. I am licensed to practice in the United States or its Territories as a doctor)
  817. justify-text
  818. 2 mm 196 mm 165 mm
  819. (of medicine \(M.D.\) or doctor of osteopathy \(D.O.\). I have considered the accommodations that could be made for this person's disability)
  820. justify-text
  821. 2 mm 196 mm 162 mm
  822. (and have determined that, even with accommodations, this person would be unable to pass a 13 or 20 words per minute telegraphy)
  823. justify-text
  824. 2 mm 159 mm moveto (examination.) show
  825. 2 mm 196 mm 136 mm
  826. (Authorization is hereby given to the physician named above, who participated in my care, to release to the Federal Communications)
  827. justify-text
  828. 2 mm 133 mm moveto
  829. (Commission any medical information deemed necessary to ) show
  830. (process my application for an amateur operator/primary ) show
  831. (station license.) show
  832.  
  833. % Welcome to hell. The "Notice to Physician..." part is two columns
  834. % of fully justified text. Yuck.
  835.  
  836. BOLD-FONT 8 scalefont setfont
  837. 99 mm 115 mm moveto
  838. (NOTICE TO PHYSICIAN CERTIFYING TO A DISABILITY) center-text
  839.  
  840. NORMAL-FONT 8 scalefont setfont
  841.  
  842. 5 mm 93 mm 109 mm
  843. (You are being asked by a person who has already passed a 5 words per)
  844. justify-text
  845. 5 mm 93 mm 106 mm
  846. (minute telegraphy examination to certify that, because of a severe)
  847. justify-text
  848. 5 mm 93 mm 103 mm
  849. (handicap, he/she is unable to pass a 13 or 20 words per minute)
  850. justify-text
  851. 5 mm 93 mm 100 mm
  852. (telegraphy examination. If you sign the certification, the person will be)
  853. justify-text
  854. 5 mm 93 mm 97 mm
  855. (exempt from the examination. Before you sign the certification, please)
  856. justify-text
  857. 5 mm 94 mm moveto
  858. (consider the following:) show
  859. 5 mm 93 mm 88 mm
  860. (THE REASON FOR THE EXAMINATION - Telegraphy is a method of)
  861. justify-text
  862. 5 mm 93 mm 85 mm
  863. (electrical communication that the Amateur Radio Service community)
  864. justify-text
  865. 5 mm 93 mm 82 mm
  866. (strongly desires to preserve. We support their objective by authorizing)
  867. justify-text
  868. 5 mm 93 mm 79 mm
  869. (additional operating privileges to amateur operators who increase their)
  870. justify-text
  871. 5 mm 93 mm 76 mm
  872. (skills to 13 and 20 words per minute. Normally, to attain these levels of skill,)
  873. justify-text
  874. 5 mm 93 mm 73 mm
  875. (intense practice is required. Annually, thousands of amateur operators)
  876. justify-text
  877. 5 mm 93 mm 70 mm
  878. (prove by passing examinations that they have acquired the skill. These)
  879. justify-text
  880. 5 mm 93 mm 67 mm
  881. (examinations are prepared and administered by amateur operators in)
  882. justify-text
  883. 5 mm 64 mm moveto
  884. (the local community who volunteer their time and effort.) show
  885. 5 mm 93 mm 58 mm
  886. (THE EXAMINATION PROCEDURE - The volunteer examiners \(VEs\) send a)
  887. justify-text
  888. 5 mm 93 mm 55 mm
  889. (short message in the Morse code. The examinee must decipher a series)
  890. justify-text
  891. 5 mm 93 mm 52 mm
  892. (of audible dots and dashes into 43 different alphabetic, numeric and)
  893. justify-text
  894. 5 mm 93 mm 49 mm
  895. (punctuation characters used in the message. To pass, the examinee)
  896. justify-text
  897. 5 mm 93 mm 46 mm
  898. (must correctly answer questions about the content of the message.)
  899. justify-text
  900. 5 mm 93 mm 43 mm
  901. (Usually, a fill-in-the-blanks format is used. With your certification, they will)
  902. justify-text
  903. 5 mm 93 mm 40 mm
  904. (give the person credit for passing the examination, even though they do)
  905. justify-text
  906. 5 mm 37 mm moveto
  907. (not administer it.) show
  908. 5 mm 31 mm moveto
  909. (MUST A PERSON WITH A HANDICAP SEEK EXEMPTION?) show
  910. 5 mm 93 mm 25 mm
  911. (No handicapped person is required to request exemption from the)
  912. justify-text
  913. 5 mm 93 mm 22 mm
  914. (higher speed telegraphy examinations, nor is anyone denied the)
  915. justify-text
  916. 5 mm 93 mm 19 mm
  917. (opportunity to take the examinations because of a handicap. There is)
  918. justify-text
  919. 5 mm 93 mm 16 mm
  920. (available to all otherwise qualified persons, handicapped or not, the)
  921. justify-text
  922. 5 mm 93 mm 13 mm
  923. (Technician Class operator license that does not require passing a)
  924. justify-text
  925. 5 mm 93 mm 10 mm
  926. (telegraphy examination. Because of international regulations, however,)
  927. justify-text
  928. 5 mm 93 mm 7 mm
  929. (any handicapped applicant requesting exemption from the 13 or 20)
  930. justify-text
  931. 5 mm 93 mm 4 mm
  932. (words per minute examination must have passed the 5 words per minute)
  933. justify-text
  934. 5 mm 1 mm moveto
  935. (examination.) show
  936.  
  937. 104 mm 192 mm 109 mm
  938. (ACCOMMODATING A HANDICAPPED PERSON - Many handicapped)
  939. justify-text
  940. 104 mm 192 mm 106 mm
  941. (persons accept and benefit from the personal challenge of passing the)
  942. justify-text
  943. 104 mm 192 mm 103 mm
  944. (examination in spite of their hardships. For handicapped persons without)
  945. justify-text
  946. 104 mm 192 mm 100 mm
  947. (an exemption who have difficulty in proving that they can decipher)
  948. justify-text
  949. 104 mm 192 mm 97 mm
  950. (messages sent in the Morse code, the VE's make exceptionally)
  951. justify-text
  952. 104 mm 192 mm 94 mm
  953. (accommodative arrangements. They will adjust the tone in frequency)
  954. justify-text
  955. 104 mm 192 mm 91 mm
  956. (and volume to suit the examinee. They will administer the examination at)
  957. justify-text
  958. 104 mm 192 mm 88 mm
  959. (a place convenient and comfortable to the examinee, even at bedside.)
  960. justify-text
  961. 104 mm 192 mm 85 mm
  962. (For a deaf person, they will send the dots and dashes to a vibrating)
  963. justify-text
  964. 104 mm 192 mm 82 mm
  965. (surface or flashing light. They will write the examinee's dictation. Where)
  966. justify-text
  967. 104 mm 192 mm 79 mm
  968. (warranted, they will pause in sending the message after each sentence,)
  969. justify-text
  970. 104 mm 192 mm 76 mm
  971. (each phrase, each word, or each character to allow the examinee)
  972. justify-text
  973. 104 mm 192 mm 73 mm
  974. (additional time to absorb and interpret what was sent. They will even)
  975. justify-text
  976. 104 mm 70 mm moveto
  977. (allow the examinee to send the message, rather than receive it.) show
  978. 104 mm 192 mm 62 mm
  979. (YOUR DECISION - The VEs rely upon you to make the necessary medical)
  980. justify-text
  981. 104 mm 192 mm 59 mm
  982. (determination for them using your professional judgement. You are)
  983. justify-text
  984. 104 mm 192 mm 56 mm
  985. (being asked to decide if the person's handicap is so severe that he/she)
  986. justify-text
  987. 104 mm 192 mm 53 mm
  988. (cannot pass the examination even when the VEs employ their)
  989. justify-text
  990. 104 mm 192 mm 50 mm
  991. (accommodative procedures. The impairment, moreover, will last more)
  992. justify-text
  993. 104 mm 192 mm 47 mm
  994. (than one year. This procedure is not intended to exempt a person who)
  995. justify-text
  996. 104 mm 192 mm 44 mm
  997. (simply wants to avoid expending the effort necessary to acquire greater)
  998. justify-text
  999. 104 mm 192 mm 41 mm
  1000. (skill in telegraphy. The person requesting that you sign the certification)
  1001. justify-text
  1002. 104 mm 192 mm 38 mm
  1003. (will give you names and addresses of VEs and other amateur operators)
  1004. justify-text
  1005. 104 mm 192 mm 35 mm
  1006. (in your community who can provide you with more information on this)
  1007. justify-text
  1008. 104 mm 32 mm moveto
  1009. (matter.) show
  1010. 104 mm 192 mm 25 mm
  1011. (DETAILED INSTRUCTIONS - If you decide to execute the certification, you)
  1012. justify-text
  1013. 104 mm 192 mm 22 mm
  1014. (should complete and sign the Physician's Certification of Disability on the)
  1015. justify-text
  1016. 104 mm 192 mm 19 mm
  1017. (person's FCC Form 610. You must be an M.D. or D.O. licensed to)
  1018. justify-text
  1019. 104 mm 192 mm 16 mm
  1020. (practice in the United States or its Territories. The person must sign a)
  1021. justify-text
  1022. 104 mm 192 mm 13 mm
  1023. (release permitting disclosure to the FCC of the medical information)
  1024. justify-text
  1025. 104 mm 10 mm moveto
  1026. (pertaining to the disability.) show
  1027. 192 mm 4 mm moveto
  1028. (FCC Form 610) right-justify
  1029. 192 mm 1 mm moveto
  1030. (November 1993) right-justify
  1031.  
  1032. showpage
  1033.  
  1034. %%Trailer
  1035. %%EOF
  1036. ----- ereh tuc -----
  1037.